home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / dpp / istream.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  6KB  |  282 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 16 "istream.d"
  17. #include <ctype.h> 
  18. #include <string.h> 
  19.  
  20. #include "dpp.h" 
  21.  
  22. #define MAXBUF 4096 
  23. #define MAXWORDSZ 256 
  24.  
  25.  
  26. #define strne(a, b) strcmp(a, b) 
  27. #define streq(a, b) !strcmp(a, b) 
  28.  
  29. #define istart(x) (isalpha(x) || (x) == '_') 
  30. #define irest(x) (isalnum(x) || (x) == '_') 
  31.  
  32.  
  33. #ifdef unix 
  34. #define RMODE "r" 
  35. #define WMODE "w" 
  36. #else 
  37. #define RMODE "rt" 
  38. #define WMODE "wt" 
  39. #endif 
  40.  
  41. #define    CLASS    InputStream_c
  42. #define    ivType    InputStream_iv_t
  43.  
  44. #include "generics.h"
  45.  
  46. object    InputStream_c;
  47.  
  48.  
  49. #line 50 "istream.c"
  50. typedef struct  _InputStream_iv_t  {
  51.     object iStream;
  52.     long iLine;
  53.     char * iBuf;
  54.     char * iPtr;
  55. }    InputStream_iv_t;
  56.  
  57.  
  58. #line 48 "istream.d"
  59. extern objrtn open_file(char *file,char *mode); 
  60.  
  61.  
  62. cmeth objrtn InputStream_cm_gNew(object self)
  63. { 
  64.     return gShouldNotImplement(self, "gNew"); 
  65. } 
  66.  
  67. cmeth objrtn InputStream_cm_gNewWithStr(object self, char *file)
  68. { 
  69.     object s, obj; 
  70.     ivType *iv; 
  71.  
  72.     s = open_file(file, RMODE); 
  73.     if (!s) 
  74.         return NULL; 
  75.     obj = oSuper(InputStream_c, gNew, self)(self); 
  76.     iv = ivPtr(obj); 
  77.     iv->iStream = s; 
  78.     iv->iBuf = Tnalloc(char, MAXBUF); 
  79.     *iv->iBuf = '\0'; 
  80.     iv->iPtr = iv->iBuf; 
  81.     return obj; 
  82. } 
  83.  
  84. imeth objrtn InputStream_im_gDispose(object self)
  85. { InputStream_iv_t *iv = GetIVs(InputStream, self);
  86.     gDispose(iv->iStream); 
  87.     free(iv->iBuf); 
  88.     return oSuper(InputStream_c, gDispose, self)(self); 
  89. } 
  90.  
  91. imeth objrtn InputStream_im_gGCDispose(object self)
  92. { InputStream_iv_t *iv = GetIVs(InputStream, self);
  93.     free(iv->iBuf); 
  94.     return oSuper(InputStream_c, gGCDispose, self)(self); 
  95. } 
  96.  
  97.  
  98.  
  99. static int get_line(ivType *iv) 
  100. { 
  101.     char *tbuf; 
  102.     int something = 0, i; 
  103.  
  104.     tbuf = iv->iBuf; 
  105.     *tbuf = '\0'; 
  106.     while (1) { 
  107.         if (!gGets(iv->iStream, tbuf, MAXBUF-strlen(iv->iBuf))) 
  108.             break; 
  109.         iv->iLine++; 
  110.         something = 1; 
  111.         i = strlen(tbuf) - 1; 
  112.         while (i >= 0 && (tbuf[i] == '\n' || tbuf[i] == '\r')) 
  113.             i--; 
  114.         if (i < 0 || tbuf[i] != '\\') { 
  115.             tbuf[i+1] = '\0'; 
  116.             break; 
  117.         } 
  118.         tbuf[i] = '\0'; 
  119.         tbuf += i; 
  120.     } 
  121.     return something; 
  122. } 
  123.  
  124.  
  125. #define IS(a, b) *iv->iPtr == a && iv->iPtr[1] == b 
  126. #define IS3(a, b, c) *iv->iPtr == a && iv->iPtr[1] == b && iv->iPtr[2] == c 
  127.  
  128. #define CODE_STATE 1 
  129. #define COMMENT_STATE 2 
  130.  
  131.  
  132.  
  133. static int next_token(ivType *iv) 
  134. { 
  135.     int state = CODE_STATE; 
  136.  
  137.     while (1) { 
  138.         if (!*iv->iPtr) 
  139.             if (get_line(iv)) 
  140.             iv->iPtr = iv->iBuf; 
  141.         else 
  142.             return 0; 
  143.         else if (state == CODE_STATE) { 
  144.             if (isspace(*iv->iPtr)) 
  145.                 iv->iPtr++; 
  146.             else if (IS('/', '/')) 
  147.                 *iv->iPtr = '\0'; 
  148.             else if (IS('/', '*')) { 
  149.                 state = COMMENT_STATE; 
  150.                 iv->iPtr += 2; 
  151.             } else 
  152.                 return 1; 
  153.         } else { 
  154.             if (IS('*', '/')) { 
  155.                 iv->iPtr += 2; 
  156.                 state = CODE_STATE; 
  157.             } else 
  158.                 iv->iPtr++; 
  159.         } 
  160.     } 
  161.  
  162. } 
  163.  
  164. imeth objrtn InputStream_im_gNextToken(object self)
  165. { InputStream_iv_t *iv = GetIVs(InputStream, self);
  166.     char *w, token[MAXWORDSZ]; 
  167.     int i; 
  168.  
  169.     if (!next_token(iv)) 
  170.         return NULL; 
  171.     w = token; 
  172.     if (istart(*iv->iPtr)) 
  173.         for (i=0 ; ++i <= MAXWORDSZ && irest(*iv->iPtr) ;) 
  174.         *w++ = *iv->iPtr++; 
  175.     else 
  176.         if (IS3('<', '<', '=') || 
  177.         IS3('>', '>', '=') || 
  178.         IS3(':', ':', '*') || 
  179.         IS3('-', '>', '*') || 
  180.         IS3('.', '.', '.')) { 
  181.         *w++ = *iv->iPtr++; 
  182.         *w++ = *iv->iPtr++; 
  183.         *w++ = *iv->iPtr++; 
  184.     } else if (IS('*', '=') || 
  185.         IS('/', '=') || 
  186.         IS('%', '=') || 
  187.         IS('+', '=') || 
  188.         IS('-', '=') || 
  189.         IS('&', '=') || 
  190.         IS('^', '=') || 
  191.         IS('|', '=') || 
  192.         IS('&', '&') || 
  193.         IS('|', '|') || 
  194.         IS('=', '=') || 
  195.         IS('!', '=') || 
  196.         IS('<', '<') || 
  197.         IS('>', '>') || 
  198.         IS('<', '=') || 
  199.         IS('>', '=') || 
  200.         IS('-', '-') || 
  201.         IS('+', '+') || 
  202.         IS(':', ':') || 
  203.         IS('.', '*') || 
  204.         IS('-', '>')) { 
  205.         *w++ = *iv->iPtr++; 
  206.         *w++ = *iv->iPtr++; 
  207.     } else if (*iv->iPtr == '"' || *iv->iPtr == '\'') { 
  208.         char type = *iv->iPtr; 
  209.         *w++ = *iv->iPtr++; 
  210.         while (*iv->iPtr && *iv->iPtr != type) { 
  211.             *w++ = *iv->iPtr; 
  212.             if (*iv->iPtr == '\\' && iv->iPtr[1]) 
  213.                 *w++ = *++iv->iPtr; 
  214.             ++iv->iPtr; 
  215.         } 
  216.         if (*iv->iPtr) 
  217.             *w++ = *iv->iPtr++; 
  218.     } else if (isdigit(*iv->iPtr) || *iv->iPtr == '.' && isdigit(iv->iPtr[1])) { 
  219.         int hex; 
  220.  
  221.         if (hex = (*iv->iPtr == '0' && (iv->iPtr[1] == 'x' || iv->iPtr[1] == 'X'))) { 
  222.             *w++ = *iv->iPtr++; 
  223.             *w++ = *iv->iPtr++; 
  224.         } 
  225.         while ((hex ? isxdigit(*iv->iPtr) : isdigit(*iv->iPtr)) || *iv->iPtr == '.' || *iv->iPtr == 'e' || *iv->iPtr == 'E' 
  226.             || ((*iv->iPtr=='-' || *iv->iPtr=='+') && 
  227.             (iv->iPtr[-1] == 'e' || iv->iPtr[-1] == 'E')) ) 
  228.             *w++ = *iv->iPtr++; 
  229.         if (*iv->iPtr == 'u' || *iv->iPtr == 'U' || *iv->iPtr == 'l' || *iv->iPtr == 'L') 
  230.             *w++ = *iv->iPtr++; 
  231.         if (*iv->iPtr == 'u' || *iv->iPtr == 'U' || *iv->iPtr == 'l' || *iv->iPtr == 'L') 
  232.             *w++ = *iv->iPtr++; 
  233.     } else 
  234.         *w++ = *iv->iPtr++; 
  235.     *w = '\0'; 
  236.  
  237.     i = isspace(*iv->iPtr) || !*iv->iPtr || 
  238.         iv->iPtr[0] == '/' && iv->iPtr[1] == '*' || 
  239.         iv->iPtr[0] == '/' && iv->iPtr[1] == '/'; 
  240.     return gNewToken(Token, token, iv->iLine, i); 
  241. } 
  242.  
  243.  
  244. #line 245 "istream.c"
  245.  
  246. objrtn    InputStream_initialize(void)
  247. {
  248.     static  CRITICALSECTION  cs;
  249.     static  int volatile once = 0;
  250.  
  251.     ENTERCRITICALSECTION(_CI_CS_);
  252.     if (!once) {
  253.         INITIALIZECRITICALSECTION(cs);
  254.         once = 1;
  255.     }
  256.     LEAVECRITICALSECTION(_CI_CS_);
  257.  
  258.     ENTERCRITICALSECTION(cs);
  259.  
  260.     if (InputStream_c) {
  261.         LEAVECRITICALSECTION(cs);
  262.         return InputStream_c;
  263.     }
  264.     INHIBIT_THREADER;
  265.     InputStream_c = gNewClass(Class, "InputStream", sizeof(InputStream_iv_t), 0, END);
  266.     cMethodFor(InputStream, gNewWithStr, InputStream_cm_gNewWithStr);
  267.     cMethodFor(InputStream, gNew, InputStream_cm_gNew);
  268.     iMethodFor(InputStream, gDispose, InputStream_im_gDispose);
  269.     iMethodFor(InputStream, gGCDispose, InputStream_im_gGCDispose);
  270.     iMethodFor(InputStream, gNextToken, InputStream_im_gNextToken);
  271.     iMethodFor(InputStream, gDeepDispose, InputStream_im_gDispose);
  272.  
  273.     ENABLE_THREADER;
  274.  
  275.     LEAVECRITICALSECTION(cs);
  276.  
  277.     return InputStream_c;
  278. }
  279.  
  280.  
  281.  
  282.